<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	if (Interfaz::TipoDeFichero()) {
		$html = Interfaz::CabeceraBalanceSumasSaldos ($cabecera,$detallesCabecera, TRUE);
	
		$acumuladoDebe = 0;
		$acumuladoHaber = 0;
		$acumuladoSaldoDebe = 0;
		$acumuladoSaldoHaber = 0;
	
		// PINTAR INGRESOS
		foreach ($cuentasBalanceActivo as $cuenta => $datosCuenta) {
			if (isset($Balancecuentas))
				$html .= Interfaz::FilaBalanceSumasSaldos($datosCuenta,$detallesCuentasActivo[$cuenta], TRUE, 
					$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
			if (isset($Balancesubcuentas) && isset($subCuentasBalanceActivo[$cuenta]))
				foreach ($subCuentasBalanceActivo[$cuenta] as $subcuenta => $datosSubcuenta) {
					$html .=Interfaz::FilaBalanceSumasSaldos($datosSubcuenta, $detallesSubcuentasActivo[$subcuenta], TRUE, 
						$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
				}
		}
		$acumuladoActivoDebe = $acumuladoDebe;
		$acumuladoActivoHaber = $acumuladoHaber;
		$acumuladoActivoSaldoDebe = $acumuladoSaldoDebe;
		$acumuladoActivoSaldoHaber = $acumuladoSaldoHaber;
	
		$html .= Interfaz::CierreBalanceIngresosGastos ($acumuladoActivoDebe, $acumuladoActivoHaber, $acumuladoActivoSaldoDebe, 
			$acumuladoActivoSaldoHaber, Ingresos, TRUE);
	
		// PINTAR PASIVO
		foreach ($cuentasBalancePasivo as $cuenta => $datosCuenta) {
			if (isset($Balancecuentas))
				$html .=Interfaz::FilaBalanceSumasSaldos($datosCuenta,$detallesCuentasPasivo[$cuenta], TRUE, 
					$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
			if (isset($Balancesubcuentas) && isset($subCuentasBalancePasivo[$cuenta]))
				foreach ($subCuentasBalancePasivo[$cuenta] as $subcuenta => $datosSubcuenta) {
					$html .=Interfaz::FilaBalanceSumasSaldos($datosSubcuenta, $detallesSubcuentasPasivo[$subcuenta], TRUE, 
						$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
				}
		}
	
		$acumuladoPasivoDebe = $acumuladoDebe - $acumuladoActivoDebe;
		$acumuladoPasivoHaber = $acumuladoHaber - $acumuladoActivoHaber;
		$acumuladoPasivoSaldoDebe = $acumuladoSaldoDebe - $acumuladoActivoSaldoDebe;
		$acumuladoPasivoSaldoHaber = $acumuladoSaldoHaber - $acumuladoActivoSaldoHaber;
	
		$html .=Interfaz::CierreBalanceIngresosGastos ($acumuladoPasivoDebe, $acumuladoPasivoHaber, 
			$acumuladoPasivoSaldoDebe, $acumuladoPasivoSaldoHaber, Pasivo, TRUE);
	
		$totalBalanceSaldoDebe = $acumuladoPasivoSaldoDebe + $acumuladoActivoSaldoDebe;
		$totalBalanceSaldoHaber = $acumuladoPasivoSaldoHaber + $acumuladoActivoSaldoHaber;
	
		$html .= Interfaz::TotalBalanceIngresosGastos($totalBalanceSaldoDebe, $totalBalanceSaldoHaber, TRUE);
		$enlace = Fichero::Excel (_("BALANCE INGRESOS GASTOS"), $html);
		$abrirFichero = TRUE;
	}
	else
		$abrirFichero = FALSE;
?>		